reading the train file and see it column name

source("CreditDefaultUtils.R")
library(tidyverse)
previousApplicationData <- read_csv("data/previous_application.csv")
installmentsPpaymentsData <- read_csv("data/installments_payments.csv")
creditCardBalanceData <- read_csv("data/credit_card_balance.csv")
POSCASHBalanceData <- read_csv("data/POS_CASH_balance.csv")
library(dplyr)
previousApplicationData %>% summarise_all(funs(n_distinct(.)))
PACat <- getCatFeatures(previousApplicationData)
PACat
PACatNoNa <- PACat[, -which(colMeans(is.na(PACat)) > 0.9)]
PACatNoNa
PANum <- getNumFeatures(previousApplicationData,'SK_ID_PREV')
PANum
previousApplicationReady <- PANum %>% inner_join(PACatNoNa)
previousApplicationReady
write.csv(previousApplicationReady, file = "data/previous_application_ready.csv",row.names=FALSE)
library(dplyr)
installmentsPpaymentsData %>% summarise_all(funs(n_distinct(.)))
IPNum <- getNumFeatures(installmentsPpaymentsData,'SK_ID_PREV')
IPNum
write.csv(IPNum, file = "data/installments_payments_ready.csv",row.names=FALSE)
library(dplyr)
creditCardBalanceData %>% summarise_all(funs(n_distinct(.)))
CBCat <- getCatFeatures(creditCardBalanceData)
CBCatNoNa <- CBCat[, -which(colMeans(is.na(CBCat)) > 0.9)]
CBCatNoNa
CBNum <- getNumFeatures(creditCardBalanceData,'SK_ID_PREV')
CBNum
creditCardBalanceDataReady <- CBNum %>% inner_join(CBCatNoNa)
creditCardBalanceDataReady
write.csv(creditCardBalanceDataReady, file = "data/credit_card_balance_ready.csv",row.names=FALSE)
PCCat <- getCatFeatures(POSCASHBalanceData)
PCCatNoNa <- PCCat[, -which(colMeans(is.na(PCCat)) > 0.9)]
PCCatNoNa
PCNum <- getNumFeatures(POSCASHBalanceData,'SK_ID_PREV')
PCNum
POSCASHBalanceDataReady <- PCNum %>% inner_join(PCCatNoNa)
POSCASHBalanceDataReady
write.csv(POSCASHBalanceDataReady, file = "data/POS_CASH_Balance_Ready.csv",row.names=FALSE)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpyZWFkaW5nIHRoZSB0cmFpbiBmaWxlIGFuZCBzZWUgaXQgY29sdW1uIG5hbWUNCmBgYHtyLHdhcm5pbmc9RkFMU0UsbWVzc2FnZT1GQUxTRSxlcnJvcj1GQUxTRX0NCnNvdXJjZSgiQ3JlZGl0RGVmYXVsdFV0aWxzLlIiKQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpwcmV2aW91c0FwcGxpY2F0aW9uRGF0YSA8LSByZWFkX2NzdigiZGF0YS9wcmV2aW91c19hcHBsaWNhdGlvbi5jc3YiKQ0KaW5zdGFsbG1lbnRzUHBheW1lbnRzRGF0YSA8LSByZWFkX2NzdigiZGF0YS9pbnN0YWxsbWVudHNfcGF5bWVudHMuY3N2IikNCmNyZWRpdENhcmRCYWxhbmNlRGF0YSA8LSByZWFkX2NzdigiZGF0YS9jcmVkaXRfY2FyZF9iYWxhbmNlLmNzdiIpDQpQT1NDQVNIQmFsYW5jZURhdGEgPC0gcmVhZF9jc3YoImRhdGEvUE9TX0NBU0hfYmFsYW5jZS5jc3YiKQ0KYGBgDQpgYGB7cn0NCnByZXZpb3VzQXBwbGljYXRpb25EYXRhDQpgYGANCg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKQ0KcHJldmlvdXNBcHBsaWNhdGlvbkRhdGEgJT4lIHN1bW1hcmlzZV9hbGwoZnVucyhuX2Rpc3RpbmN0KC4pKSkNCmBgYA0KDQpgYGB7cn0NClBBQ2F0IDwtIGdldENhdEZlYXR1cmVzKHByZXZpb3VzQXBwbGljYXRpb25EYXRhKQ0KUEFDYXQNCmBgYA0KYGBge3J9DQpQQUNhdE5vTmEgPC0gUEFDYXRbLCAtd2hpY2goY29sTWVhbnMoaXMubmEoUEFDYXQpKSA+IDAuOSldDQpQQUNhdE5vTmENCmBgYA0KDQoNCmBgYHtyfQ0KUEFOdW0gPC0gZ2V0TnVtRmVhdHVyZXMocHJldmlvdXNBcHBsaWNhdGlvbkRhdGEsJ1NLX0lEX1BSRVYnKQ0KUEFOdW0NCmBgYA0KDQpgYGB7cix3YXJuaW5nPUZBTFNFLG1lc3NhZ2U9RkFMU0UsZXJyb3I9RkFMU0V9DQpwcmV2aW91c0FwcGxpY2F0aW9uUmVhZHkgPC0gUEFOdW0gJT4lIGlubmVyX2pvaW4oUEFDYXROb05hKQ0KcHJldmlvdXNBcHBsaWNhdGlvblJlYWR5DQpgYGANCmBgYHtyfQ0Kd3JpdGUuY3N2KHByZXZpb3VzQXBwbGljYXRpb25SZWFkeSwgZmlsZSA9ICJkYXRhL3ByZXZpb3VzX2FwcGxpY2F0aW9uX3JlYWR5LmNzdiIscm93Lm5hbWVzPUZBTFNFKQ0KYGBgDQoNCg0KDQoNCg0KYGBge3J9DQppbnN0YWxsbWVudHNQcGF5bWVudHNEYXRhDQpgYGANCg0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIpDQppbnN0YWxsbWVudHNQcGF5bWVudHNEYXRhICU+JSBzdW1tYXJpc2VfYWxsKGZ1bnMobl9kaXN0aW5jdCguKSkpDQpgYGANCg0KYGBge3J9DQpJUE51bSA8LSBnZXROdW1GZWF0dXJlcyhpbnN0YWxsbWVudHNQcGF5bWVudHNEYXRhLCdTS19JRF9QUkVWJykNCklQTnVtDQpgYGANCg0KDQpgYGB7cn0NCndyaXRlLmNzdihJUE51bSwgZmlsZSA9ICJkYXRhL2luc3RhbGxtZW50c19wYXltZW50c19yZWFkeS5jc3YiLHJvdy5uYW1lcz1GQUxTRSkNCmBgYA0KDQoNCmBgYHtyfQ0KY3JlZGl0Q2FyZEJhbGFuY2VEYXRhDQpgYGANCg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKQ0KY3JlZGl0Q2FyZEJhbGFuY2VEYXRhICU+JSBzdW1tYXJpc2VfYWxsKGZ1bnMobl9kaXN0aW5jdCguKSkpDQpgYGANCg0KYGBge3J9DQpDQkNhdCA8LSBnZXRDYXRGZWF0dXJlcyhjcmVkaXRDYXJkQmFsYW5jZURhdGEpDQpDQkNhdE5vTmEgPC0gQ0JDYXRbLCAtd2hpY2goY29sTWVhbnMoaXMubmEoQ0JDYXQpKSA+IDAuOSldDQpDQkNhdE5vTmENCmBgYA0KDQoNCmBgYHtyfQ0KQ0JOdW0gPC0gZ2V0TnVtRmVhdHVyZXMoY3JlZGl0Q2FyZEJhbGFuY2VEYXRhLCdTS19JRF9QUkVWJykNCkNCTnVtDQpgYGANCg0KDQpgYGB7cix3YXJuaW5nPUZBTFNFLG1lc3NhZ2U9RkFMU0UsZXJyb3I9RkFMU0V9DQpjcmVkaXRDYXJkQmFsYW5jZURhdGFSZWFkeSA8LSBDQk51bSAlPiUgaW5uZXJfam9pbihDQkNhdE5vTmEpDQpjcmVkaXRDYXJkQmFsYW5jZURhdGFSZWFkeQ0KYGBgDQoNCmBgYHtyfQ0Kd3JpdGUuY3N2KGNyZWRpdENhcmRCYWxhbmNlRGF0YVJlYWR5LCBmaWxlID0gImRhdGEvY3JlZGl0X2NhcmRfYmFsYW5jZV9yZWFkeS5jc3YiLHJvdy5uYW1lcz1GQUxTRSkNCmBgYA0KDQoNCmBgYHtyfQ0KUE9TQ0FTSEJhbGFuY2VEYXRhDQpgYGANCg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKQ0KUE9TQ0FTSEJhbGFuY2VEYXRhICU+JSBzdW1tYXJpc2VfYWxsKGZ1bnMobl9kaXN0aW5jdCguKSkpDQpgYGANCg0KYGBge3J9DQpQQ0NhdCA8LSBnZXRDYXRGZWF0dXJlcyhQT1NDQVNIQmFsYW5jZURhdGEpDQpQQ0NhdE5vTmEgPC0gUENDYXRbLCAtd2hpY2goY29sTWVhbnMoaXMubmEoUENDYXQpKSA+IDAuOSldDQpQQ0NhdE5vTmENCmBgYA0KYGBge3J9DQpQQ051bSA8LSBnZXROdW1GZWF0dXJlcyhQT1NDQVNIQmFsYW5jZURhdGEsJ1NLX0lEX1BSRVYnKQ0KUENOdW0NCmBgYA0KYGBge3Isd2FybmluZz1GQUxTRSxtZXNzYWdlPUZBTFNFLGVycm9yPUZBTFNFfQ0KUE9TQ0FTSEJhbGFuY2VEYXRhUmVhZHkgPC0gUENOdW0gJT4lIGlubmVyX2pvaW4oUENDYXROb05hKQ0KUE9TQ0FTSEJhbGFuY2VEYXRhUmVhZHkNCmBgYA0KDQpgYGB7cn0NCndyaXRlLmNzdihQT1NDQVNIQmFsYW5jZURhdGFSZWFkeSwgZmlsZSA9ICJkYXRhL1BPU19DQVNIX0JhbGFuY2VfUmVhZHkuY3N2Iixyb3cubmFtZXM9RkFMU0UpDQpgYGANCg0KDQoNCg==